home *** CD-ROM | disk | FTP | other *** search
/ Aminet 32 / Aminet 32 (1999)(Schatztruhe)[!][Aug 1999].iso / Aminet / comm / mail / YamCheckNew.lha / YamCheckNew.rexx next >
OS/2 REXX Batch file  |  1999-05-18  |  486b  |  36 lines
  1. /*$VER: YamCheckNew.rexx V1.2 Roger Bennett (18-5-99) bennett@net.ntl.com
  2. Checks and reports Amount of New Mail in Incoming Folder
  3. */
  4.  
  5. /*Variables to be changed */
  6.  
  7.  
  8.  
  9. SayCommand="C:Say"             /* Path to Say */
  10.  
  11. options results
  12.  
  13. address 'YAM'
  14.  
  15. MAILINFO Stem fi.
  16. M=fi.index
  17.  
  18. FOLDERINFO Stem fi.
  19. F=fi.number
  20.  
  21. SETFOLDER 0
  22. FOLDERINFO Stem fi.
  23. N=fi.new
  24.  
  25.  
  26. USERINFO STEM fi.
  27. U=fi.username
  28.  
  29.  If N>=1 then ADDRESS COMMAND SayCommand' "You have Personal E Mail 'U'!"'
  30.  
  31. SETFOLDER F 
  32.  
  33. SETMAIL M
  34.  
  35. EXIT
  36.